home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue42 / opengl / opengl12.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-09-24  |  2.1 KB  |  64 lines
  1. unit opengl12;
  2.  
  3. interface
  4.   uses opengl;
  5. //Support for GL version 1.1    - added by JH
  6. // array support
  7. Procedure glEnableClientState(arraytype:GLenum);stdcall;
  8. Procedure glDisableClientState(arraytype:GLenum);stdcall;
  9.  
  10. Procedure glVertexPointer(size:GLInt;aType:GLEnum;Stride:GLSizei;Data:Pointer);stdcall;
  11. Procedure glColorPointer(size:GLInt;aType:GLEnum;Stride:GLSizei;Data:Pointer);stdcall;
  12. Procedure glIndexPointer(aType:GLEnum;Stride:GLSizei;Data:Pointer);stdcall;
  13. Procedure glNormalPointer(aType:GLEnum;Stride:GLSizei;Data:Pointer);stdcall;
  14. Procedure glEdgeFlagPointer(Stride:GLSizei;Data:Pointer);stdcall;
  15. Procedure glTexCoordPointer(size:GLInt;aType:GLEnum;Stride:GLSizei;Data:Pointer);stdcall;
  16.  
  17. Procedure glArrayElement(Index:GLint);stdcall;
  18. procedure glDrawArrays(mode:GLenum;First:Glint;count:GLSizei);stdcall;
  19. procedure glDrawElements(mode:GLEnum;count:GLsizei;atype:GLenum;data:pointer);stdcall;
  20.  
  21. Procedure glInterleavedArrays(format:GLenum;stride:GLsizei;data:Pointer); stdcall;
  22.  
  23. //textures
  24. Procedure glGenTextures(count:GLsizei;ptrTexnames:GLuint);stdcall;
  25. Procedure glBindtextures(aType:GLenum;TextureID:GLuint);
  26.  
  27.  
  28. implementation
  29.  
  30. {$IFDEF SGIDLL}
  31. const
  32.   glu32 =     'glu.dll';
  33.   OpenGLDLL = 'OpenGL.dll';
  34. {$ELSE}
  35. const
  36.   glu32 =     'glu32.dll';
  37.   OpenGLDLL = 'OpenGL32.dll';
  38. {$ENDIF}
  39.  
  40. //Support for GL version 1.1    - added by JH
  41. // array support
  42. Procedure glEnableClientState; external openglDll;
  43. Procedure glDisableClientState; external openglDll;
  44.  
  45. Procedure glVertexPointer; external openglDll;
  46. Procedure glColorPointer; external openglDll;
  47. Procedure glIndexPointer; external openglDll;
  48. Procedure glNormalPointer; external openglDll;
  49. Procedure glEdgeFlagPointer; external openglDll;
  50. Procedure glTexCoordPointer; external openglDll;
  51.  
  52. Procedure glArrayElement; external openglDll;
  53. procedure glDrawArrays; external openglDll;
  54. procedure glDrawElements; external openglDll;
  55.  
  56. Procedure glInterleavedArrays; external openglDll;
  57.  
  58. //textures
  59. Procedure glGenTextures; external openglDll;
  60. Procedure glBindtextures; external openglDll;
  61.  
  62.  
  63. end.
  64.